1500 FOR T=1 TO 12 STEP 3:LPRINT CHR$(27);"E";TAB(11)M$(T);TAB(37)M$(T+1);TAB(63)M$(T+2)
1510 LPRINT : LPRINT
1520 LPRINT TAB(3)" S M T W T F S";TAB(29)" S M T W T F S";TAB(55)" S M T W T F S";CHR$(27);"F";CHR$(18)
1530 FOR R=1 TO 6:FOR RR=1 TO 3:LPRINT TAB((RR-1)*26+2);" ";
1540 FOR TT=1 TO 7:D=DA(T+RR-1,TT,R)
1550 IF D=0 THEN D$=" ":GOTO 1570
1560 D$=RIGHT$(" "+STR$(D),3)
1570 LPRINT D$;
1580 NEXT TT
1590 NEXT RR:LPRINT
1600 NEXT R:LPRINT STRING$(3,138):NEXT T
1610 LPRINT CHR$(12)
1620 LOCATE 23,10: PRINT " ":LOCATE 21,10:PRINT "PRINT ANOTHER ?";
1630 Y$=INKEY$:IF Y$="" THEN 1630
1640 IF Y$="Y" OR Y$="y" THEN 1660
1650 END
1660 LOCATE 21,10:PRINT "SAME YEAR (Y/N)?";
1670 Y$=INKEY$:IF Y$="" THEN 1670
1680 IF Y$="Y" OR Y$="y" THEN 1440
1690 RUN
1700 DATA 31,28,31,30,31,30,31,31,30,31,30,31,3,4,5,7,1,2,3,5,6,7,1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2," JANUARY ","FEBRUARY"," MARCH "," APRIL "," MAY "," JUNE "," JULY "," AUGUST ","SEPTEMBER"," OCTOBER ","NOVEMBER "
1710 DATA "DECEMBER "
RIL "," MAY "," JUNE "," JULY "," AUGUST ","SEPTEMBER"," OCTOBER ","NOVEM